home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / DigitalSounds / XMAS87.ARC / XMAS LOADER (.txt) < prev   
Commodore BASIC  |  2019-04-13  |  2KB  |  80 lines
  1. 3 REM     BARRY PARRIS MODIFICATIONS
  2. 4 REM     JAMES PASLAY ART DESIGNS
  3. 5 REM     CHARLES ROUNSAVILLE..MUSIC              ARRANGER USING
  4. 6 REM     'MASTER COMPOSER' MUSIC FILES
  5. 7 REM     SPARTANBURG COMMODORE USERS
  6. 8 REM     GROUP (SPARCUG)
  7. 9 REM  P.O.BOX 319, SPARTANBURG SC 29304
  8. 10 REM SPRITES AT $3F80
  9. 11 REM DISSOLVE ROUTINES AT $C000
  10. 17 IFX=0THENPOKE53280,12:POKE53281,12:PRINT"[147]"SPC(9)"S P A R C U G,  INC."
  11. 19 IFX=0THENX=1:PRINT"             PRESENTS....."
  12. 20 IFX=1THENX=2:LOAD"LOGO.D",8,1
  13. 22 IFX=2THENX=3:LOAD"DISSOLVE.D",8,1
  14. 25 IFX=3THENPOKE55,0:POKE56,31:CLR:X=4:GOTO2000
  15. 27 IF(X=4)AND(FL=0)THEN2215
  16. 30 IFX=4THENX=5:POKE53280,0:POKE53281,0:GOTO50
  17. 37 IF(X=5)AND(FL=0)THEN2215
  18. 40 IF(X=5)AND(FL=1)THEN130
  19. 50 REM  PRINT"[147]         PRESS ANY KEY TO START"
  20. 51 REM  GETA$:IFA$=""THEN51
  21. 52 PRINT"[147]":FORT=0TO500:NEXT:GOTO60
  22. 60 REM MAIN LOOP
  23. 61 GOSUB1000:REM TITLE SCREEN
  24. 100 SYS34592:REM SET UP MC BITMAP MODE
  25. 105 FORT=0TO100:NEXT
  26. 110 SYS34592+3:REM DISSOLVE IN SCREEN
  27. 112 SYS16539:REM PLAY SONG
  28. 113 GETKY$:IFKY$<>""THENPOKE17463,4:GOTO2000
  29. 115 IFPEEK(789)<>(14*16+10)THEN113
  30. 120 GOTO2000:REM LOAD NEXT FILE
  31. 130 SYS34592+6:REM DISSOLVE OUT
  32. 140 REM
  33. 150 IFE=1THEN9000:REM END OF STREAM
  34. 160 GOTO100
  35. 1000 SYS34592+9:REM RESTORE TEXT MODE
  36. 1005 POKE2040,254:REM SPRITE POINTER
  37. 1010 POKE2041,255:REM SPRITE POINTER
  38. 1020 VIC=53248
  39. 1030 POKEVIC+39,6:REM COLOR 0
  40. 1040 POKEVIC+40,2:REM COLOR 1
  41. 1050 POKEVIC+29,0:REM X EXPAND OFF
  42. 1060 POKEVIC+28,0:REM MCM OFF
  43. 1070 POKEVIC+23,0:REM Y EXPAND OFF
  44. 1080 POKEVIC+16,0:REM MSB X OFF
  45. 1090 POKEVIC+1,136:REM Y LOCATION 0
  46. 1100 POKEVIC+3,136:REM Y LOCATION 1
  47. 1110 POKEVIC+0,128:REM X LOCATION 0
  48. 1120 POKEVIC+2,128:REM X LOCATION 1
  49. 1130 POKEVIC+21,3:REM TURN ON
  50. 1150 PRINT"[147] COMMODORE 64"
  51. 1160 PRINT"  CHRISTMAS"
  52. 1165 FORT=0TO2500:NEXT
  53. 1166 POKEVIC+21,0:REM SPRITES OFF
  54. 1170 RETURN
  55. 2000 POKE54296,0:IFN=0THENF$="A*":MU$="WE THREE*"
  56. 2001 IFN=1THENF$="B*":MU$="WHAT C*"
  57. 2003 IFN=2THENF$="C*":MU$="O HOLY*"
  58. 2004 IFN=3THENF$="D*":MU$="GOD REST*"
  59. 2005 IFN=4THENF$="E*":MU$="IT CA*"
  60. 2006 IFN=5THENF$="F*":MU$="SILEN*"
  61. 2007 IFN=6THENF$="G*":MU$="HERALD*"
  62. 2010 IFN=7THENF$="H*":MU$="I HEAR*"
  63. 2011 IFN=8THENF$="I*":MU$="LITTLE*"
  64. 2012 IFN=9THENF$="J*":MU$="JOY TO*"
  65. 2013 REM  IFN=10THENF$="K*"
  66. 2014 REM  IFN=11THENF$="L*"
  67. 2015 REM  IFN=12THENF$="M*"
  68. 2016 REM  IFN=13THENF$="N*"
  69. 2017 REM  IFN=14THENF$="O*"
  70. 2018 REM  IFN=15THENF$="P*"
  71. 2019 IFN=10THENF$="A*":MU$="WE THREE*":E=1
  72. 2200 FI$=CHR$(129)+"PIC "+F$
  73. 2205 N=N+1
  74. 2210 FL=0:LOADFI$,8,1
  75. 2215 FL=1:LOADMU$,8,1
  76. 2220 END
  77. 9000 SYS34592+9:REM RESTORE TEXT MODE
  78. 9050 POKE53281,0:POKE53280,0
  79. 9100 CLR:N=1:X=5:GOTO60
  80.